MacFormat 1995 June/MacFormat 25.iso/Shareware City/Developers/fortran-to-c-translator-11/Mac F2C 1.1/Mac F2C Libraries/libF77 Sources/d_prod.c

C/C++ Source or Header | 1995-01-28 | 140 b | 11 lines | [TEXT/KAHL]

#include "f2c.h"

#ifdef KR_headers
double d_prod(x,y) real *x, *y;
#else
double d_prod(real *x, real *y)
#endif
{
return( (*x) * (*y) );
}